﻿Imports System.Windows.Forms

Public Class frmArchive
    Public Enum enumArchiveOption
        None
        Project
        Table
        Selected
        Scheduled
    End Enum

    Friend ArchiveOption As enumArchiveOption = enumArchiveOption.None

    Private Sub Cancel_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel_Button.Click
        ArchiveOption = enumArchiveOption.None
        Me.Close()
    End Sub

    Private Sub lnkProject_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles lnkProject.Click
        ArchiveOption = enumArchiveOption.Project
        Me.Close()
    End Sub

    Private Sub lnkTable_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles lnkTable.Click
        ArchiveOption = enumArchiveOption.Table
        Me.Close()
    End Sub


    Private Sub lnkSelected_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles lnkSelected.Click
        ArchiveOption = enumArchiveOption.Selected
        Me.Close()
    End Sub

    Private Sub lnkScheduled_Click(sender As Object, e As System.EventArgs) Handles lnkScheduled.Click
        ArchiveOption = enumArchiveOption.Scheduled
        Me.Close()
    End Sub

    Private Sub lnkScheduled_LinkClicked(sender As System.Object, e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles lnkScheduled.LinkClicked
        ArchiveOption = enumArchiveOption.Scheduled
        Me.Close()
    End Sub
End Class
